home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2K OTL Security 2.xpl < prev    next >
Text File  |  2002-12-05  |  2KB  |  59 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "COUNT"="1"
  4. "UIPATH 1"="System\File System\Folders\Data"
  5. "UIPATH 2"="Program Options\Microsoft Office\MS Office 2000\Outlook 2000"
  6. "NAME"="Attachment Folder"
  7. "VERSION"="1.00"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Folder"
  10. "DESCRIPTION 1"="Every time you double-click an attachment inside Outlook, it is first copied to a local folder before the starting the associated application."
  11. "DESCRIPTION 2"="By default, Outlook creates a subfolder inside the folder "Temporary Internet Files" and stores the attachment, as long as you edit them, there."
  12. "DESCRIPTION 3"="This setting can be used to configure a different folder that better suits your needs."
  13. "DESCRIPTION 4"="IMPORTANT! This setting requires Office Service Release 1 (SR-1)!"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="see MS KB: Q249793"
  18.  
  19. sPCheck="HKCU\Software\Microsoft\Office\9.0\"
  20.      sP="HKCU\Software\Microsoft\Office\9.0\Outlook\Security\OutlookSecureTempFolder"
  21.  
  22.  
  23. Sub Plugin_Initialize 
  24. if RegPathExists(sPCheck) then
  25.   s=RegReadValue(sP)
  26.   SetUIElement 1,s
  27. else
  28.   Disable
  29. end if
  30. End Sub
  31.  
  32. Sub Plugin_CheckData(ElementIndex)
  33. End Sub
  34.  
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  Call Wrt(1,sP)
  37.  
  38.  Call Logoff()
  39. End Sub
  40.  
  41.  
  42. Sub Wrt(ITM,VAL)
  43.  s=GetUIElement(ITM)
  44.  if len(s)>0 then 
  45.   
  46.     if Right(s,1)="\" then
  47.        s=left(s,len(s)-1)
  48.     end if
  49.     Call RegWriteValue(VAL,s,1)
  50.  else
  51.     s=RegReadValue(VAL)
  52.     if IsEmpty(s)=false then Call RegDeleteValue(VAL)
  53.  end if
  54. end sub
  55.  
  56.  
  57. Sub Plugin_Terminate 
  58. End Sub
  59.